home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Utilities / RA / RA Samples / MemoryMgr.ra < prev    next >
Encoding:
Text File  |  1986-10-21  |  1.4 KB  |  105 lines  |  [THED/THTH]
  1. |
  2. |   RA¬
  3. |
  4. |    MemoryMgr Samples
  5. |
  6. |   ⌐ 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. #Z,átestá,áhelloá,0 1 -,0 1 -;
  10. ! "!"
  11. #Z,átestá,átestá,0 1 -,0 1 -;
  12. ! "!"
  13. #Y,átestá,0 1 -; áá "!"
  14. #A;
  15. 2 A:   "Variable A is a pointer to variable C!"
  16. 0 C:   "C has 0 in it!" 
  17. #C,A;
  18. "After setting bit 3, C = " A.. ! "!"
  19. #X,A,3;   | set bit 3
  20. #C,A;
  21. "After clearing bit 3, C = " A..!
  22. "!"
  23. #W,A,3;   | clear bit 3
  24. #C,A;
  25. #A;
  26. "AND of 13 and 23 = "
  27. #U,13,23; E: E. ! "!"
  28. "OR of 13 and 23 = "
  29. #T,13,23; E: E. ! "!"
  30. "XOR of 13 and 23 = "
  31. #S,13,23; E: E. ! "!"
  32. "NOT of 13 = "
  33. #R,13; ! "!"
  34. "BitShift 1 3 positions = "
  35. #Q,1,3; ! "!"
  36. #A;
  37.  
  38. $
  39. &Q       | BitShift
  40. 1% 2%
  41. Ñ 0A85C ╝ ª
  42. `
  43. &R       | BitNOT
  44. 1%
  45. Ñ 0A85A ╝ ª
  46. `
  47. &S       | BitXOR
  48. 1% 2%
  49. Ñ 0A859 ╝ ª
  50. `
  51. &T       | BitOR
  52. 1% 2%
  53. Ñ 0A85B ╝ ª
  54. `
  55. &U       | BitAnd
  56. 1% 2%
  57. Ñ 0A858 ╝ ª
  58. `
  59. &V       | BitTst
  60. Ñ 0A85D ╝ ª
  61. `
  62. &W       | ClrBit Trap
  63. 1% 2%
  64. Ñ 0A85F ╝ ª
  65. `
  66. &X          | BitSet Trap
  67. 1% 2%
  68. Ñ 0A85E ╝ ª
  69. `
  70. &Y       | UprString Trap
  71. 1% 2%
  72. Ñ 0A854 ╝ ª
  73. `
  74. &Z       | EqualString Trap
  75. 1% 2% 3% 4%
  76. Ñ 0A03C ╝ ª 
  77. `
  78. &A
  79. "!Hit any key: " ?ñ ╡ @`
  80. |
  81. |  RA title routine
  82. |
  83. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  84.  
  85. &O
  86. 40 100 ╜
  87. "RA¬"
  88. 60 45 ╜ 
  89. "⌐ 1986 COM~LINK & S.Koren" 
  90. 80 60 ╜
  91. "All rights reserved." `
  92.  
  93. &L
  94. 35 A: ("Ñ" A. 1 - A: A. 0 > ~ ) "!"`
  95.  
  96. &N
  97. "Ñ" 33 A: (" " A. 1 - A: A. 0 > ~ ) "Ñ" "!"`
  98.  
  99. &P ?ñ @ `
  100. &C   | dump 8 bits of byte 
  101. 0 A: ( 1%  A. #V; 
  102. B: B. 0 = ["0"]
  103. B. 0 = º ["1"]
  104. A. 1 + A: A. 8 = º ~) "!"`
  105. $